home *** CD-ROM | disk | FTP | other *** search
/ 50 Windows Games 4 / 50 Windows Games 4.iso / path.frm < prev    next >
Text File  |  1994-03-09  |  4KB  |  139 lines
  1. VERSION 2.00
  2. Begin Form PathDlg 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "PathDlg"
  5.    ClientHeight    =   2235
  6.    ClientLeft      =   3810
  7.    ClientTop       =   2595
  8.    ClientWidth     =   6825
  9.    ControlBox      =   0   'False
  10.    Height          =   2610
  11.    Left            =   3765
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2235
  17.    ScaleWidth      =   6825
  18.    Top             =   2265
  19.    Width           =   6915
  20.    Begin PictureBox Picture1 
  21.       AutoSize        =   -1  'True
  22.       BorderStyle     =   0  'None
  23.       Height          =   840
  24.       Left            =   120
  25.       Picture         =   PATH.FRX:0000
  26.       ScaleHeight     =   840
  27.       ScaleWidth      =   990
  28.       TabIndex        =   6
  29.       TabStop         =   0   'False
  30.       Top             =   120
  31.       Width           =   990
  32.    End
  33.    Begin TextBox Text1 
  34.       Height          =   375
  35.       Left            =   2520
  36.       TabIndex        =   0
  37.       Top             =   720
  38.       Width           =   3735
  39.    End
  40.    Begin CommandButton Command1 
  41.       Caption         =   "&Continue"
  42.       Default         =   -1  'True
  43.       Height          =   375
  44.       Left            =   1320
  45.       TabIndex        =   1
  46.       Top             =   1680
  47.       Width           =   1575
  48.    End
  49.    Begin CommandButton Command2 
  50.       Caption         =   "&Exit Setup"
  51.       Height          =   375
  52.       Left            =   3480
  53.       TabIndex        =   2
  54.       Top             =   1680
  55.       Width           =   1575
  56.    End
  57.    Begin Label Label1 
  58.       Height          =   495
  59.       Left            =   1320
  60.       TabIndex        =   3
  61.       Top             =   120
  62.       Width           =   5415
  63.    End
  64.    Begin Label Label2 
  65.       Alignment       =   1  'Right Justify
  66.       Caption         =   "Install to:"
  67.       Height          =   255
  68.       Left            =   840
  69.       TabIndex        =   4
  70.       Top             =   780
  71.       Width           =   1575
  72.    End
  73.    Begin Label inDrive 
  74.       Caption         =   "inDrive"
  75.       Height          =   255
  76.       Left            =   120
  77.       TabIndex        =   7
  78.       Top             =   840
  79.       Visible         =   0   'False
  80.       Width           =   735
  81.    End
  82.    Begin Label outButton 
  83.       Caption         =   "outButton"
  84.       Height          =   255
  85.       Left            =   120
  86.       TabIndex        =   9
  87.       Top             =   1200
  88.       Visible         =   0   'False
  89.       Width           =   975
  90.    End
  91.    Begin Label Label3 
  92.       Caption         =   "To quit Setup, choose the Exit button."
  93.       Height          =   255
  94.       Left            =   1320
  95.       TabIndex        =   5
  96.       Top             =   1200
  97.       Width           =   3615
  98.    End
  99.    Begin Label outPath 
  100.       Caption         =   "outPath"
  101.       Height          =   255
  102.       Left            =   120
  103.       TabIndex        =   8
  104.       Top             =   1560
  105.       Visible         =   0   'False
  106.       Width           =   855
  107.    End
  108. End
  109.  
  110. Dim DestPath$
  111.  
  112. Sub Command1_Click ()
  113.     DestPath$ = text1.Text
  114.     inDrive.Tag = Left$(DestPath$, 2)
  115.  
  116.     '-------------------------------------------
  117.     ' The IsValidPath function not only returns
  118.     ' True/False as to whether or not it is a valid
  119.     ' path, but also reformats the path variable
  120.     ' into the format, "X:\dir\dir\dir\"
  121.     '-------------------------------------------
  122.     If IsValidPath(DestPath$, (inDrive.Tag)) Then
  123.         OutPath.Tag = DestPath$
  124.         OutButton.Tag = "continue"
  125.         PathDlg.Hide
  126.     Else
  127.         MsgBox "Not a valid path.", 48, PathDlg.Caption
  128.         text1.SetFocus
  129.         text1.SelStart = 0
  130.         text1.SelLength = Len(text1.Text)
  131.     End If
  132. End Sub
  133.  
  134. Sub Command2_Click ()
  135.     OutButton.Tag = "exit"
  136.     PathDlg.Hide
  137. End Sub
  138.  
  139.